home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
cuj9204.zip
/
1004020B
< prev
next >
Wrap
Text File
|
1992-06-02
|
253b
|
12 lines
/* rand function */
#include <stdlib.h>
/* the seed */
unsigned long _Randseed = 1;
int (rand)(void)
{ /* compute pseudo-random value */
_Randseed = _Randseed * 1103515245 + 12345;
return ((unsigned int)(_Randseed >> 16) & RAND_MAX);
}